(define (last-pair listx)
    (define (last-pair-iter listx a b)
        (if (< a b)
            (last-pair-iter 
                (cdr listx)
                (+ a 1)
                b
            )
            listx
        )
    )
    (let (
            (len (- (length listx) 1)) 
        )
        (last-pair-iter listx 0 len)
    )
)
(display (last-pair (list 23 72 149 34)))
(exit)